home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / tcp / rxsocket.lha / rxsocket / examples / revclient.rexx < prev    next >
OS/2 REXX Batch file  |  2000-11-28  |  918b  |  37 lines
  1. /*
  2.     This is the very simple client for revserv.rexx or pserv.rexx.
  3. */
  4.  
  5. l="rexxsupport.library";if ~show("L",l) then;if ~addlib(l,0,-30) then do;say "can't find" l;exit;end
  6. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then do;say "can't find" l;exit;end
  7. l="rxsocket.library";if ~show("L",l) then;if ~addlib(l,0,-30) then do;say "can't find" l;exit;end
  8.  
  9. prg = ProgramName("NOEXT")
  10.  
  11. sin.ADDRFAMILY = "INET"
  12. sin.ADDRPORT   = 4000
  13. sin.ADDRADDR   = '127.0.0.1'
  14.  
  15. sock = socket("INET","STREAM",0)
  16. if sock<0 then call err "no socket:" errno()
  17.  
  18. if connect(sock,"SIN")<0 then call err "connect error:" errno()
  19.  
  20. request = "reverse service test"
  21. say length(request)
  22. res = send(sock,request)
  23. if res~=length(request) then call err "send error:"  errno()
  24.  
  25. len = recv(sock,"BUF",256)
  26. if len<0 then call err "recv error:" errno()
  27.  
  28. say buf
  29. say length(buf)
  30. exit
  31.  
  32. err: procedure expose prg
  33. parse arg msg
  34.     say prg":" msg
  35.     exit
  36.  
  37.